home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / arc / XFH / src / Lib / b2cinplace.c next >
C/C++ Source or Header  |  1992-02-05  |  574b  |  33 lines
  1. /* b2cinplace - in-place conversion between c and bcpl-strings. */
  2.  
  3. #include <exec/types.h>
  4. #include <libraries/dos.h>
  5.  
  6. #include <string.h>
  7.  
  8. char *bstr2cinplace(UBYTE *pp){
  9.    register UBYTE len;
  10.    register UBYTE *p = pp;
  11.    
  12.    for( len=*p; len--; p++ ) p[0] = p[1];
  13.    *p = '\0';
  14.    return (char *)pp;
  15. }
  16.  
  17.  
  18. BSTR cstr2binplace(char *pp){
  19.    register UBYTE len;
  20.    register char c,d;
  21.    register char *p = pp;
  22.    
  23.    len = strlen(p);
  24.    for( c=len; len--; p++ ){
  25.       d=*p;
  26.       *p=c;
  27.       c=d;
  28.    }
  29.    *p=c;
  30.    return (BSTR)((ULONG)pp >> 2);
  31. }
  32.  
  33. /* End of b2cinplace.c */